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An On-Line LISP Editor 


I. Motivation 

"LISP 1.5 (and local variants thereof ) is being used increasingly 
as an interactive language. Adaptations of the original LISP language 
are available to users at teletype consoles in the Q-32, PDP-1 (dedicated 
system), and SDS 940 time-sharing systems [1,2,3]. In the course of composing 
and running LISP programs in this kind of environment , certain needs arise 
naturally for utility functions within the LISP system that are not necessary 
within batch processing systems such as the original LISP 1.5 for the IBM - 


7090 [4]. 


The principal use of interaction in LISP, as in most other languages 
originally designed for operation on batch process machines, is to ar 
reduce the time required for program debugging. Thus ode classes of 
software See re required: debugging aids, and tools for rapid ibaa tie: 
tion of already existing LISP programs within the LISP system. Packages of 
the former kind exist in all three systems mentioned above and will not be 
discussed further here (they are originally related to the TRACE facility of 
7090 LISP). However, little has been written about editing facilities within 


on-line LISP systems. 


The editor described here is implemented within the PDP-1 and SDS 940 
time-sharing LISP sytems, but can be used with minor changes within any 
LISP system which includes the capabilities of LISP 1.5 It was begun by the 
author in 1965 and later extended by Bobrow and Teitelman at BBN. The object 
has not been to produce an especially elegant editor (although the command 
language is simple and the implementation fairly straightforward). In fact, 


this editor is considered in the nature of a stopgap until a much more 
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elegant editor hazed on FLIP [5], a very general format-oriented language 
embedded in LISP, has been completed. However, even the present crude 
capabilities can cut the time required to Maike changes in LISP functions 
dramatically compared to the time required to type the function in again 


or even perform the emendation with SUBST. 


II. Editor language structure 


Let us take a concrete example of a list (not necessarily a function 
definition) to be edited. Suppose we are editing the following incorrect 


definition of the APPEND function: 


(LAMBDA (X) Y (COND ((NUL X) Zz) (T (CONS (CAR) 


(APPEND (CDR X Y)))))). 


At any given moment, the editor's attention is confined to a single list 
(generally a subcomponent of the original list being edited), which it will 
print when given the command P. To avoid printing of confusing detail, sublists 


of sublists will be printed simply as &. Thus: 


*P 


| (LAMBDA (X) Y (COND & &)). 


Only the list on which attention is currently focused may be changed. 
Commands thus fall naturally into four classes: moving around the list 
structure; making changes in the current list; printing parts of the list 


being edited; and entering and leaving the editor. 


Many commands use the convention that an integer designates a sublist 
of the current lists. For example, if an integer alone is typed, attention 


is focused on the designated sublist of the current list. 
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Thus: 


(X) 


The converse command is the number Ø, which causes the current list to 
revert to its former state. For example, starting again with the list at the 


beginning of the section: 


*3 P 
Y 
*ø P 
(LAMBDA (X) Y (COND & &)). 
Note the use of several comands on a single line. This is possible in the 


three time-shared systems mentioned earlier but it may not be in others. 


In the remaining examples, unless mentioned specifically, it is assumed 
that the state of the edit is that which existed at the end of the previous 


example. As above, lines typed by the user are prefixed with an asterisk. 


III. Attention commands 


The two fundamental commands for moving around the structure have already 
been mentioned: a positive integer n, to examine the nth sublist, and 0, to 
revert to the superlist. If n is a positive integer, then -n examines the 
nth sublist of the current list starting from the end and counting backwards, 


i.e. -l1 examines the last sublist of the current list. 


A more drastic command is *, which clears the editor's memory of descent 


through the structure and reestablishes the top level of the entire list 
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structure being edited as current. Thus: 


*4 2 1P 


(LAMBDA (X) Y (COND & &)). 


A command similar to n is (NTH n) which caused the list starting with the 


nth sublist of the current list to become current. Thus: 


*(NTH 3) 
*P 
(Y (COND & &)). 
*ó P 
( LAMBDA (x) Y (COND & &)). 
The command (F e), where e is any S-expression, essen for an instance 


of e in the current list, and then acts like NTH, so that for example: 
*(F Y) 
=P 
(y (COND & &)). 


A more thorough (and time-consuming) search is provided by (F e T) 


which searches through the entire structure. Thus: 


*t(F ZT) 
a 
(Z) 
*h P 
( (NUL X) 2) 
*øó P 


(COND (& Z) (T &)) 
3) P 


(LAMBDA (X) Y (COND & &)). 
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The argument e of the F commands need not be a literal S-expression. 
The symbol & will match any element of a list; the symbol -- as the last element 


‘of a list to be searched for will match any list. Thus: 


* t (F (NUL &) T) 
*P 

(NUL X) 
* t (F (CDR --) T) 
*P 

(CDR X Y) 
* t (F (CDR &) T) 


? 


The question mark which followed the last command is the editor's all- 
purpose error comment: it simply means something was wrong with the last 
comand, The commands are simple enough that it is rarely difficult to 
ascertain the nature of the error. A problem may arise if several 
commands were stacked .on a single line, since no indication is given of which 
one caused the error: in this case the state of the edit can always be dis- 


covered by using P. 


One more facility is available for changing the attention of the editor. 
At ee aie in the edit, a mark can be made and later returned to. The 
commands are MARK, which marks the current state for future reference; e , 
which returns to the last mark without destroying it and i which returns 


to the last mark and forgets it. For example: 


* ¢hop 


( (NUL X) 2) 
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*MARK ? (F CONS T) 
*P 
(CONS (CAR) (APPEND &)) 
xt P 
((NUL X) Z) 
* eP 
( (NUL X) Z) 
*ep 


? 


This last example demonstrates another facet of the error recovery 
mechanism: to avoid further confusion when an error occurs, all commands. 


on the line beyond the one which caused the error are forgotten. 
IV. Modification commands 


Just as most general text editors contain INSERT, REPLACE, and APPEND 
commands, the LISP editor provides facilities for these three basic operations. 


To insert the S-expressionse Ep before sublist n of the current list, one 


we! 


simply gives the command (-ne. ... £)» thus: : 


1 
* t (F CAR T) 
*P 
(CAR) 
*(-1 CRR) 
P 


(CRR CAR). 


To replace the nth sublist with e +++ Me gives the command (n e 


1 vn) 


for example: 
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* t (F NUL T) 
xp | 
(NUL X) 
*(1 NULL IS) 
xp 
(NULL IS X). 


And to append at the end of the current list, one writes (Ne...) thus: 


*(N THIS LIST) 
*P 


(NULL IS X THIS LIST). 


Deletions may be accomplished by using the replace operation with no new 
S-expressions specified: to restore the list we have just created to the 


state in which we presumably want it, we can say: 


*(5) 
*(h) 
+2) 
z i 


(NUIL X). 


Deletions should generally be made from back to front, since otherwise the 
indices of later sublists will change as earlier ones are deleted, e.g. the 
above sequence of commands given in front to back order would have been 

x(2) | 

*(3) 

mG i 
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A more rarely useful, but occasionally convenient, facility is provided 
by (I ne), which is equivalent to (n e?) where el-evalle]. For example, 


if the current value of J is (A BC), then we have the following result: 


* thoap 

( (NUL X) Z) 
*(I 1 J) 
*P 


((A BC) Z). 


V. Structure changing commands 


The commands presented in the last section do Abe allow ee 
alteration of the list structure itself, as opposed to sten thereof. 
Consider, for example, the list (AB (CDE) FG). We can remove the 
parenthesis around (C DE), which is the third sublist, by (LO 3) (this stands 
for take Left paren Out). This produces the list (ABC DE F G). Conversely, 
if we want to take the partial list beginning at B and subordinate it one level, 
making (A (B (CDE) F c)), we can say (LI 2), i.e. put a Left parenthesis in 


before sublist 2 (and a matching right parenthesis at the end of the list). 


Two Sicher operations of this sort are also possible. If we wanted to 
bring only the D and E up to the level of the A B F G, and leave (C) as a sublist 
we can use (RI 1 3), namely move the Right paren on the end of’ sublist 3 In 
to after sublist 1 (of sublist 3). This will produce (A B(C)DEFG). 
A related operation is (RO 3), which means move the Right parenthesis of 
sublist 3 Out to the end of the list, producing (AB (C DE F G)). Finally, 


if it is desired to move a right parenthesis only partway out, for example 
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to produce (AB (C DEF) G), this can be accomplished by (RO 3) followed by 
(RI 4 3). 
VI. Printing commands 


We have already encountered the command P, which prints the current 


list showing only one level of nesting. To print a selected sublist in the 


same way without changing the state of the edit, (Pn) is used: for example, | 


*“tPp. 
(LAMBDA (X) Y (COND & &)) 
*(P 2) 
(x). 
Furthermore, one may examine the nth sublist (or, if n=0, the current list) 
to m levels of nesting by using (P n m). The convention is that m=3 yields 


the usual format:: several illustrations are given below. 


“(2 PL) 
& 
*(P ó 2) 
(LAMBDA & Y &) 
*(P Ø 3) 
(LAMBDA (X) Y (COND & &)) 
*(P 4 2) 
(COND & &) 
*(P 44) 


(COND ((NUL X) Z) (T (CONS & &))). 


Another command which is available for examining the environment during 


editing is (E e), which simply prints the value of e without disturbing the 
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state of the edit. This is done under ERRORSET, so that one can actually 

try to run ce Fohetich which one is editing. It should be mentioned that 
Meisner are made as soon as they are typed in; so that the a of the 

definition of a function (which is what is usually being edited) is always 


exactly what one expects. 


VII. Using the editor 


As presently bee to the outside world, the editor consists of 
a basic function for editing S-expressions, EDITE, and three special 
functions for editing values, definitions, and property lists, respectively 
EDITV, EDITF, and EDITP. Thus, 

*EDITF(APPEND) | 


EDIT 


would be used to begin the edit which has been used as the example, When 
editing is complete, NIL will cause EDITE to exit with the edited list as 
value. The three interface functions all return as value the atom being 
edited. A complete see. starting with the erroneous definition given at 
the beginning of section 2 and ending with the correct definition of APPEND, 


is given below. 


*EDITF (APPEND ) 

EDIT 
*(P ó 1fp) | 

(LAMBDA (X) Y (COND ((NUL X) z) (T (cons (CAR) (APPEND (CDR X Y)))))) 
*(3) 
*(2 (X Y)) 


*P 
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(LAMBDA (X Y) (COND & &)) 
x32Pp 
((NUL X) Z) 
*1 (1 NULL) 
Zp T) 
*P 
( (NULL X) Y) 
* t (F CAR T) 
*(N X) 
* t (F. CONS T) 
*3 (RI 2 2) 
*P 
(APPEND (CDR X) Y) 
* t (P Ø 109) 
(LAMBDA (X Y) (COND ((NULL x) Y) (T (CONS (CAR X) (APPEND 
(CDR X) Y))))) 
XNIL | 


APPEND. £ 


In all Hannes, it should be admitted that in this particular instance it 
probably would have been faster to type the function in again. However, 

LISP functions are typically three times as big as APPEND and have only one 

or two errors. It has been found, after over a year of use at BBN and Berkeley, 
that the editor just described does nater aliy decrease the amount of time 


required to produce working LISP programs. 
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VII. Summary 

A simple LISP editor has been found to be of substantial value in an 
interactive environment. It des not require more than an hour's training to 
learn to use enough of the editor for its use to be profitable. With the 
aid of the listings in the appendix to this paper, a competent LISP 
programmer should be able to adapt it for any LISP 1.5-based LISP system in 


less than a week. 


It is the feeling of the author that there is a point of investment in 
support software (such as editors and debuggers) beyond which further work 
within the same executive system (LISP 1.5 in this case) does not pay 
sufficiently to justify the expenditure of effort. The FLIP editor will be 
worthwhile because it will have required relatively little effort to implement 
within the FLIP executive (FLIP itself is a gigantic piece of work). Large 
amounts of further work on the simple editor described here do not seem to 


be justified. 


3. 


y. 
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